﻿Public Class satuan
    Inherits System.ComponentModel.StringConverter
    Public Overrides Function GetStandardValues(context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection

        Return New StandardValuesCollection(myList)
    End Function
    Public Overrides Function GetStandardValuesSupported(contex As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    Public Overloads Function GetStandardValuesExclusive(contex As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function
    Private Function myList() As Collections.IList
        Dim bandwidth As New Collection
        With bandwidth
            .Add("KB")
            .Add("MB")
            .Add("GB")
        End With
        Return bandwidth
    End Function
End Class
